home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / CMDGeneral / DESOTO14.1.SDA / RENAME .NAV (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  65 lines
  1. 2000 POKE43,PEEK(30983):POKE44,PEEK(30984):POKE45,PEEK(30985):POKE46,PEEK(30987)
  2. 2070 OL=1:O1=1:ONFMGOTO2080,2185,2185
  3. 2080 R=5:C=30:GOSUB115:POKECH,C7:PRINT" [210]ENAME ":POKECH,C1
  4. 2085 FS=D2:FORT=1TOFS:N$(T)=" "+TM$(T):TY$(T)=B1$(T):NEXT:CLOSE15
  5. 2086 IFDC=1THENGOSUB1195:EX=0
  6. 2087 OPEN15,DV,15
  7. 2107 DM=D3:N$(0)=TM$(0):IFDM<>9THENFF=FS:FS=FS+1:N$(FS)="*[195]HANGE [200]EADER"
  8. 2112 FM=1:GOTO300
  9. 2115 IFFM=2THEN2185
  10. 2120 FM=2:IFF=FSTHENH=1:GOTO20000
  11. 2140 N$(F)=MID$(N$(F),2)
  12. 2145 IFDM=3THENN$(F)=ID$+N$(F)
  13. 2150 N$(F)="*"+N$(F):GOSUB480:GOTO30000
  14. 2175 :
  15. 2183 IFDM=9THENFS=FS+1
  16. 2184 TM$(0)=N$(0):FORT=1TOFS-1:TM$(T)=MID$(N$(T),2):NEXT:GOSUB3056:GOTO2085
  17. 2185 GOSUB1185:R=5:C=30:GOSUB115:POKECH,C2:PRINT" [210]ENAME ":POKECH,C1
  18. 2195 EX=0:D5=0:LL=16:H=0:GOSUB3056:GOTO300
  19. 3005 POKECH,C7
  20. 3007 PRINT"";:FORT=1TOLL+LEN(MS$):PRINT" ";:NEXT:PRINT""MS$;:POKE198,0
  21. 3010 OPEN9,0:A$="":B$="":POKE204,0
  22. 3015 GET#9,A$:IFA$=""THEN3015
  23. 3020 IFA$=CHR$(13)THENA$="":CLOSE9:PRINT" ";:POKE204,1:GOSUB3056:POKECH,C1:RETURN
  24. 3025 IFA$=""ORA$="[157]"ORA$="[145]"ORA$=""THENGOTO3015
  25. 3030 IFA$=""ORA$="[147]"THEN3015
  26. 3035 IFLEN(B$)=LLTHENPRINT" ";:A$=CHR$(13):GOTO3020
  27. 3040 IFB$=""ANDA$=CHR$(20)THEN3015
  28. 3045 IFA$=CHR$(20)THENPRINT" [157][157] [157]";:B$=LEFT$(B$,LEN(B$)-1):GOTO3015
  29. 3050 B$=B$+A$:PRINTA$;:GOTO3015
  30. 3055 RETURN
  31. 3056 PRINT"[146]";:FORT=1TO38:PRINT" ";:NEXT:RETURN
  32. 9320 OPEN2,DV,2,"#":GOSUB200
  33. 9321 PRINT#15,"U1:";2;D;T1;S: GOSUB 200:RETURN
  34. 20000 MS$="HEADER: ":U=DV:D=0
  35. 20010 A=1:V1=16:Q$=CHR$(34):P$=CHR$(160)
  36. 20015 T1=18:S=0:BY=144:IFDT>=9THEN30110
  37. 20020 IFDT=8THENT1=40:S=0:BY=4
  38. 20025 IFTRTHENT1=TR:S=0:BY=4
  39. 20035 LL=17:GOSUB3005:N$=B$
  40. 20040 L=LEN(N$):IF L>V1THEN20035
  41. 20045 IFN$="_"ORN$=""THEN20080
  42. 20060 GOSUB9320:IF EXTHEN20080
  43. 20063 IF L=V1THEN20070
  44. 20065 FOR X=L+A TO V1: N$=N$+P$:NEXT
  45. 20070 PRINT#15,"B-P:";2;BY: PRINT#2,N$;
  46. 20075 PRINT#15,"U2:";2;D;T1;S: GOSUB200
  47. 20080 CLOSE 2
  48. 20090 GOTO20120
  49. 20120 IFDT=4THENPRINT#15,"I"
  50. 20125 DS=0:H$="":T$="":N$(0)=N$:GOTO2183
  51. 30000 C$=MID$(N$(F),2)
  52. 30010 MS$="FILE: ":LL=17:GOSUB3005:N$=B$
  53. 30015 IFHTHEN30170
  54. 30017 IFDM=9THEN30175
  55. 30020 PRINT#15,"R0:"+N$+"="C$:GOSUB200
  56. 30021 IFDM=3THENN$(F)=" "+MID$(N$,2)
  57. 30022 IFDM<>3THENN$(F)=" "+N$
  58. 30025 GOTO2183
  59. 30100 REM HD COMMANDS
  60. 30110 LL=17:GOSUB3005:N$=B$:IFLEN(N$)>16THEN30110
  61. 30145 IFN$="_"ORN$=""THEN30190
  62. 30170 PRINT#15,"R-H:"+N$:N$(0)=N$:GOTO30190
  63. 30175 PRINT#15,"R-P:"+N$+"="+C$:N$(F)=" "+N$
  64. 30190 GOSUB200:DS=0:GOTO2183
  65.